home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 19
/
Night Owl (The Best of Shareware)(NOPV 19)(1996).ISO
/
018a
/
calv1295.zip
/
CCSCRIPT.ZIP
/
CALVARY.QMO
< prev
next >
Wrap
Text File
|
1994-09-06
|
3KB
|
124 lines
;CAMMAIL Mail Transfer Script for Qmodem 4.5
;By Daryl Stogner, Boot Strap OnLine (602) 342-7127
; UPLOADED BY BROTHER GREG MOORE
;Original MARKMAIL Script by
;Joseph Sheppard, The Ledge PCBoard (818) 352-3620 (HST)
String QWK REP FON LOGON CONF DOORCMD PROT
;Edit your personal information in here:
; ***********************
Assign QWK C:\CAM-MAIL\QWK\SHEPHERD.QWK ; Name/Path of QWK file
Assign REP C:\CAM-MAIL\REP\SHEPHERD.REP ; Name/Path of REP file
Assign FON "SHEPHERD" ; Unique text in FON file
Assign LOGON "FIRST LAST PASSWORD" ; Your Name and Password on BBS
Assign CONF "J 0" ; Join Conference Command
Assign DOORCMD "MAIL UDG" ; Command to open QWK Door
Assign PROT Z ; Protocol to transfer with
; ************************
;seconds to wait before aborting (300 seconds = five minutes). Be sure
;to leave enough time for QWK and REP file transfers
Timeout 300 Halt
;Make sure modem is offhook and speaker is off (don't wake me up)
SEND "ATH0M1^M"
;Open a capture file called MAIL.LOG so we can see what happened during
;transfer tomorrow morning
CAPTURE SHEPHERD.LOG
;When <first expression> happens do <second expression>
When "new mail?" "^M"
When "no change" "1^M"
When "More?" "n^M" When "to continue?" "^M"
When "(Enter)=yes?" "^M"
When "(Enter)=English?" "^M"
When "(ENTER = NO)" "^M"
When "(Enter)=no?" "^M"
When "name? " "$LOGON^M"
When "no new messages were found!" NOMSG
;Call the host BBS
DIAL 'T$FON'
;-----------------------------------------[ DOWNLOAD UNINEW.ZIP ]-------
;Open the CAMMAIL Door
Waitfor "Command?"
Send "$CONF^M"
Waitfor "Command?"
Send "$DOORCMD^M"
;first upload the .REP file, second Download the .QWK file, then logoff
GOSUB UPLOAD_REP
GOSUB DOW_MAIL
GOTO GOODBYE
;Forget about uploading if no .REP file exists
UPLOAD_REP:
exist $REP DO_UPLOAD
Return
;Upload the .REP file
DO_UPLOAD:
Waitfor "Command? "
Send "U^M"
Waitfor ".REP"
Delay 1000
Upload $PROT $REP
Return
;Download the .QWK file
DOW_MAIL:
Waitfor "Command? "
Send "D;Y^M"
Waitfor ".QWK"
Delay 1000
Download $PROT $QWK
Waitfor "Command? "
Send "G^M"
Return
;If No messages to download
NOMSG:
Send "G^M"
;Log-off host system
GOODBYE:
Waitfor "NO CARRIER"
;Take modem off the hook during duration of event
SEND "ATH1^M"
;Turn-off capture of MAIL.LOG
TURNOFF CAPTURE
;Go back to system and resume EVENT
SEND "ATZ^M"
SYSTEM Y
Exit
;Stop everything and quit for the night if a time-out occured
Halt:
Note Unsuccessful Attempt.
Note Script Halted
TURNOFF CAPTURE
SEND "ATZ^M"
SYSTEM Y
Exit